home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 41 / CD Expert nº 41.iso / Eg2 / data / Scp / s007.scp < prev    next >
Text File  |  2000-07-19  |  4KB  |  167 lines
  1. // ****************************************************************************************
  2. // *                                                                                      *
  3. // *                                Egypte 2 : Script                                     *
  4. // *                                                                                      *
  5. // * SΘquence 007 : Maison de vie ouest                                                   *
  6. // *                                                                                      *
  7. // ****************************************************************************************
  8. // * v0.0 : 29/11/1999 - GrΘgory JOSEPH *
  9. // * v1.0 : 07/01/2000 - GrΘgory JOSEPH *
  10. // **************************************
  11. [S007]
  12.  
  13.  
  14. // **************************************
  15. // * WamEdit                            *
  16. // **************************************
  17.  
  18.  
  19. :init
  20. begin
  21.     if not S007Init then
  22.         set S007Init = 1
  23.         ShowSpw "Porte_Q7" first back
  24.         FMV "Maisnvie"
  25.         set musiqueEnCours = 17
  26.         
  27.         showSpw "ScribeEcole_S006" 4
  28.         set invent = invent + "EpiEmpoisonne"
  29.         set hand = ""
  30.         
  31.         set partie = 2
  32.     endif
  33.     
  34.     
  35. //    DisableClick "Encre"
  36. //    DisableClick "Outils_1"
  37.     
  38. //    if SP <= 4  then
  39. //        showspw "ScribeBibliotheque_S007" 2
  40. //    else
  41. //        hidespw "ScribeBibliotheque_S007"
  42. //    endif
  43.  
  44. end
  45.  
  46.  
  47. :loop
  48. begin
  49.     //******* Gestion de la mussique *************//
  50.     if TIME4 >= 200 then
  51.         if musiqueEnCours = 0 then
  52.             // rien
  53.         else
  54.             music musiqueEnCours 
  55.             set oldMusiqueEnCours = musiqueEnCours
  56.             set TIME4 = 0
  57.         endif
  58.         
  59.     elif not oldMusiqueEnCours = musiqueEnCours then
  60.         if musiqueEnCours = 0 then
  61.             // rien
  62.         else
  63.             music musiqueEnCours 
  64.             set oldMusiqueEnCours = musiqueEnCours
  65.             set TIME4 = 0
  66.         endif
  67.  
  68. //    else
  69. //        if musiqueEnCours = 0 then
  70. //            // rien
  71. //        else
  72. //            music musiqueEnCours 
  73. //            set oldMusiqueEnCours = musiqueEnCours
  74. //            set TIME4 = 0
  75. //        endif
  76.     endif
  77.  
  78.     // **************************************
  79.     // * Dialogue avec Irou                 *
  80.     // **************************************
  81.     if Mouse_Click = "ScribeBibliotheque_S007" then
  82.         if not D017 then
  83.             if not D014 and hand = "" then
  84.                 Dialog "HR014S01" "ScribeBibliotheque_S007" 2 1
  85.                 Minute 8
  86.             elif hand = "Outils_1" and not IrouGotOutils1 then
  87.                 Dialog "HR017S01" "ScribeBibliotheque_S007" 2 1
  88.                 set IrouGotOutils1 = 1
  89.                 set Invent = Invent - "Outils_1"
  90.                 FMV "IrouSori" PauseMusic
  91.                 ShowSpw "ScribeBibliotheque_S007" 4
  92.                 Minute 10
  93.             elif hand = "CalameMentor" and not IrouGotOutils1 then
  94.                 Dialog "HR017S01" "ScribeBibliotheque_S007" 2 1
  95.                 set IrouGotOutils1 = 1
  96.                 set Invent = Invent - "CalameMentor"
  97.                 FMV "IrouSori" PauseMusic
  98.                 ShowSpw "ScribeBibliotheque_S007" 4
  99.                 Minute 10
  100.             elif hand = "" then
  101.                 Dialog "SB014S08" "ScribeBibliotheque_S007" 2 1
  102.             else
  103.                 if random % 3 = 0 then
  104.                     Dialog "SB815S01" "ScribeBibliotheque_S007" 2 1
  105.                 elif random % 2 = 0 then
  106.                     Dialog "SB817S01" "ScribeBibliotheque_S007" 2 1
  107.                 else
  108.                     Dialog "SB816S01" "ScribeBibliotheque_S007" 2 1
  109.                 endif
  110.             endif
  111.         elif hand = "" then
  112.             Dialog "SB167S01" "ScribeBibliotheque_S007" 4 3
  113.         else
  114.             if random % 3 = 0 then
  115.                 Dialog "SB815S01" "ScribeBibliotheque_S007" 4 3
  116.             elif random % 2 = 0 then
  117.                 Dialog "SB817S01" "ScribeBibliotheque_S007" 4 3
  118.             else
  119.                 Dialog "SB816S01" "ScribeBibliotheque_S007" 4 3
  120.             endif
  121.         endif 
  122.  
  123.     // **************************************
  124.     // * Sortie                             *
  125.     // **************************************
  126.     elif Mouse_Click = "zS005" then
  127.         if D045 then
  128. //            if SP = 12 then
  129. //                hidespw "ScribeEcole_S023" NoWamCheck
  130. //                showspw "ScribeEcole_S006" 4 NoWamCheck
  131. //            endif
  132.             
  133.             AutoMove "zS005"
  134.             FMV "MV_2_TS"
  135.             GameOver
  136. //            Jump "TmplSolr" "S005" 12 -180 0 NoFade
  137.         else
  138.             dialog "HR188V01" off
  139.         endif
  140.     elif Mouse_Click = "zS006" then
  141.  
  142.         AutoMove "zS006"
  143.         Jump "MaisnVie" "S006" 5 Fade
  144.  
  145.     elif Mouse_Click = "zS023" then
  146.         if IrouGotOutils1 and GotEncre then
  147.             Minute 12
  148.             if not OpenQ7 then
  149.                 AutoMove "zS023"
  150.                 set OpenQ7 = 1
  151.                 ShowSpw "Porte_Q7" once wait
  152.                 HideSpw "Porte_Q7"
  153.                 set Warp_To = 0
  154.                 set Mouse_Click = 0
  155.             else
  156.                 // Vers bibliothΦque
  157.                 AutoMove "zS023"
  158.                 Jump "MaisnVie" "S023" 16 Fade
  159.             endif
  160.  
  161.  
  162.         else
  163.             set Warp_To = 0
  164.             set Mouse_Click = 0
  165.         endif
  166.     endif
  167. end